home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DBio.more / USeqChild.h < prev    next >
Text File  |  1996-07-05  |  7KB  |  351 lines
  1. // USeqChild.p 
  2. // by d.g.gilbert, 1992 for SeqApp 
  3.  
  4.  
  5. UNIT USeqChild;
  6.  
  7. INTERFACE
  8.  
  9.  
  10. #ifndef __Types__
  11. #include <Types.h>
  12. #endif
  13.  
  14. #ifndef __Memory__
  15. #include <Memory.h>
  16. #endif
  17.  
  18. #ifndef __QuickDraw__
  19. #include <QuickDraw.h>
  20. #endif
  21.  
  22. #ifndef __ToolUtils__
  23. #include <ToolUtils.h>
  24. #endif
  25.  
  26. #ifndef __OSUtils__
  27. #include <OSUtils.h>
  28. #endif
  29.  
  30. #ifndef __Resources__
  31. #include <Resources.h>
  32. #endif
  33.  
  34. #ifndef __Packages__
  35. #include <Packages.h>
  36. #endif
  37.  
  38. #ifndef __Files__
  39. #include <Files.h>
  40. #endif
  41.  
  42. #ifndef __Printing__
  43. #include <Printing.h>
  44. #endif
  45.  
  46. #ifndef __TextEdit__
  47. #include <TextEdit.h>
  48. #endif
  49.  
  50. #ifndef __Controls__
  51. #include <Controls.h>
  52. #endif
  53.  
  54. #ifndef __Aliases__
  55. #include <Aliases.h>
  56. #endif
  57.  
  58. #ifndef __Editions__
  59. #include <Editions.h>
  60. #endif
  61.  
  62. #ifndef __Events__
  63. #include <Events.h>
  64. #endif
  65.  
  66. #ifndef __Notification__
  67. #include <Notification.h>
  68. #endif
  69.  
  70. #ifndef __AppleEvents__
  71. #include <AppleEvents.h>
  72. #endif
  73.  
  74. #ifndef __Processes__
  75. #include <Processes.h>
  76. #endif
  77.  
  78. #ifndef __Balloons__
  79. #include <Balloons.h>
  80. #endif
  81.  
  82. #ifndef __GestaltEqu__
  83. #include <GestaltEqu.h>
  84. #endif
  85.  
  86. #ifndef __Fonts__
  87. #include <Fonts.h>
  88. #endif
  89.  
  90. #ifndef __Scrap__
  91. #include <Scrap.h>
  92. #endif
  93.  
  94. #ifndef __MacAppTypes__
  95. #include <MacAppTypes.h>
  96. #endif
  97.  
  98. #ifndef __UPascalObject__
  99. #include <UPascalObject.h>
  100. #endif
  101.  
  102. #ifndef __UObject__
  103. #include <UObject.h>
  104. #endif
  105.  
  106. #ifndef __UEventHandler__
  107. #include <UEventHandler.h>
  108. #endif
  109.  
  110. #ifndef __UList__
  111. #include <UList.h>
  112. #endif
  113.  
  114. #ifndef __UAdorners__
  115. #include <UAdorners.h>
  116. #endif
  117.  
  118. #ifndef __UStream__
  119. #include <UStream.h>
  120. #endif
  121.  
  122. #ifndef __UGeometry__
  123. #include <UGeometry.h>
  124. #endif
  125.  
  126. #ifndef __UEvent__
  127. #include <UEvent.h>
  128. #endif
  129.  
  130. #ifndef __UCommand__
  131. #include <UCommand.h>
  132. #endif
  133.  
  134. #ifndef __UCommandHandler__
  135. #include <UCommandHandler.h>
  136. #endif
  137.  
  138. #ifndef __UView__
  139. #include <UView.h>
  140. #endif
  141.  
  142. #ifndef __UBehavior__
  143. #include <UBehavior.h>
  144. #endif
  145.  
  146. #ifndef __UTEView__
  147. #include <UTEView.h>
  148. #endif
  149.  
  150. #ifndef __UTECommands__
  151. #include <UTECommands.h>
  152. #endif
  153.  
  154. #ifndef __UMacAppUtilities__
  155. #include <UMacAppUtilities.h>
  156. #endif
  157.  
  158. #ifndef __UPatch__
  159. #include <UPatch.h>
  160. #endif
  161.  
  162. #ifndef __UFailure__
  163. #include <UFailure.h>
  164. #endif
  165.  
  166. #ifndef __UMacAppGlobals__
  167. #include <UMacAppGlobals.h>
  168. #endif
  169.  
  170. #ifndef __UFile__
  171. #include <UFile.h>
  172. #endif
  173.  
  174. #ifndef __UApplication__
  175. #include <UApplication.h>
  176. #endif
  177.  
  178. #ifndef __UPrintHandler__
  179. #include <UPrintHandler.h>
  180. #endif
  181.  
  182. #ifndef __UPrinting__
  183. #include <UPrinting.h>
  184. #endif
  185.  
  186. #ifndef __UWindow__
  187. #include <UWindow.h>
  188. #endif
  189.  
  190. #ifndef __UMenuMgr__
  191. #include <UMenuMgr.h>
  192. #endif
  193.  
  194. #ifndef __UMemory__
  195. #include <UMemory.h>
  196. #endif
  197.  
  198. #ifndef __UErrorMgr__
  199. #include <UErrorMgr.h>
  200. #endif
  201.  
  202. #ifndef __UControl__
  203. #include <UControl.h>
  204. #endif
  205.  
  206. #ifndef __UDialog__
  207. #include <UDialog.h>
  208. #endif
  209.  
  210. #ifndef __UPopup__
  211. #include <UPopup.h>
  212. #endif
  213.  
  214. #ifndef __UScroller__
  215. #include <UScroller.h>
  216. #endif
  217.  
  218. #ifndef __UDocument__
  219. #include <UDocument.h>
  220. #endif
  221.  
  222. #ifndef __UFileHandler__
  223. #include <UFileHandler.h>
  224. #endif
  225.  
  226. #ifndef __UFileBasedDocument__
  227. #include <UFileBasedDocument.h>
  228. #endif
  229.  
  230. #ifndef __UViewServer__
  231. #include <UViewServer.h>
  232. #endif
  233.  
  234. #ifndef __UGridView__
  235. #include <UGridView.h>
  236. #endif
  237.  
  238. #ifndef __UClipboardMgr__
  239. #include <UClipboardMgr.h>
  240. #endif
  241. USES
  242.     
  243.     /*$U $$Shell(UStd)UStandard.p */ UStandard, 
  244.     /*$U $$Shell(UStd)UPlot.p */ UPlot, 
  245.     /*$U $$Shell(UStd)UApp.p */ UApp, 
  246.     /*$U $$Shell(UText)UTextDoc.p */ UTextDoc,
  247.     
  248.     USequence,
  249.     USeqReader,
  250.     USeqDoc();
  251.  
  252. CONST
  253.     kChildReturnNone    == 0;
  254.     kChildReturnOpenTextFile    == 1;
  255.     kChildReturnOpenSeqFile        == 2;
  256.     kChildReturnOpenTreeFile    == 3;
  257.     kChildReturnOpenPictFile    == 4;
  258.     kChildReturnOpenFile             == 9;
  259.     kChildReturnNoAction            == 10;
  260.     
  261.     kNewChildTemplateID == 3001;
  262.     kEditChildWindID == 3000;
  263.     
  264. TYPE
  265.     
  266.     TChildCommand    == OBJECT(TObject)
  267.         fMenuName    : Str63;
  268.         fViewID        : integer;
  269.         fMinSeqs    : integer;
  270.         fCommandsTxt, fDescriptionTxt    : Handle;
  271.         
  272.         pascal void TChildCommand::IChildCommand( str63 name, integer viewID, minSeqs,
  273.                                                                         Handle aCommandsTxt, aDescriptionTxt)
  274.         pascal void TChildCommand::LaunchDialog( TSeqList selectedSeqs)
  275.         pascal void TChildCommand::Edit(void)
  276.         pascal void TChildCommand::EnableMenu( MenuHandle aMenuHandle, integer nSelectedSeqs)
  277.         }
  278.  
  279.     TChildFile == OBJECT(TObject)
  280.         fFile     : TFile;  //.vRefNum, .fType, .versNum, .fName
  281.         Integer        fAction; //kChildReturnOpenSeqFile,kChildReturnOpenTextFile,...
  282.         Boolean        fOutput; //FALSE=input,TRUE=child outputs
  283.         Boolean        fDelete; //erase when done?
  284.         
  285.         pascal void TChildFile::IChildFile(str255 theName, OSType itsType, 
  286.                                 integer        itsVRefNum, action; boolean isOutput, doDelete)
  287.         pascal void TChildFile::Free(void) // override 
  288.         }
  289.     
  290.     TChildApp    == OBJECT(TObject)
  291.         fSN            : ProcessSerialNumberPtr;
  292.         fFiles    : TList; //of TChildFile
  293.         
  294.         pascal void TChildApp::IChildApp( theSN:ProcessSerialNumberPtr; TList theFiles)
  295.         pascal void TChildApp::Free(void) // override */ /*delete .ptr, in/out files if needed 
  296.         pascal void TChildApp::Finished(void) // post processing by parent 
  297.         }
  298.  
  299.  
  300.     TChildDialog == OBJECT(TPrefWindow)
  301.         fViewID    : integer;
  302.         fCommands, fDescription    : TDlogTextView;
  303.         fHelp        : TButton;
  304.         TChildCommand        fChildCommand;
  305.         
  306.         pascal void TChildDialog::IChildDialog( TChildCommand theCommand, integer theViewID, Handle cmdText, descripText)
  307.         pascal void TChildDialog::SetPrefID(void) /* override */ 
  308.  
  309.         pascal void TChildDialog::NewChildDialog(Integer itsViewID)  
  310.         pascal void TChildDialog::Edit(void)
  311.         pascal void TChildDialog::SaveEdits(void)
  312.         pascal void TChildDialog::DisplayForLaunch(void)
  313.         pascal void TChildDialog::Launch( TSeqList selectedSeqs)
  314.         pascal void TChildDialog::DoEvent(EventNumber eventNumber, 
  315.                                             TEventHandler        source; TEvent event) // override 
  316.         }
  317.  
  318.     TChildListView == OBJECT(TTextListView)
  319.         pascal void TChildListView::GetItemText( integer anItem, Str255 VAR aString) // override 
  320.         }
  321.         
  322.     TEditChildWind == OBJECT(TPrefWindow)
  323.         TTextListView        fListView;
  324.         TButton        fDelete, fEdit ;
  325.         
  326.         pascal void TEditChildWind::IEditChildWind(void)
  327.         pascal void TEditChildWind::SetPrefID(void) /* override */ 
  328.         pascal void TEditChildWind::DoEvent(EventNumber eventNumber, 
  329.                                             TEventHandler        source; TEvent event) // override 
  330.         //- pascal void TEditChildWind::ModalDialog(void)
  331.         }
  332.  
  333.  
  334. VAR
  335.     gChildList         : TList;         //added on by TChildCommand.LaunchDialog
  336.     TList        gChildCommandList;  //built/maintained by gApplication
  337.                         
  338.     pascal void InitChildApps( boolean hasAppleEvents)   
  339.     pascal void OpenEditChild(void)
  340.     pascal void OpenNewChild(void)
  341.     
  342.         // AppleEvent handler for kAEApplicationDied 
  343.     pascal OSErr HandleChildDiedEvent( AppleEvent theAppleEvent, reply, 
  344.                                                                     Longint handlerRefCon)
  345.         
  346. IMPLEMENTATION
  347.  
  348.         //$I USeqChild.inc.p
  349.  
  350. }
  351.